Merciful 1/Merciful - Disc 1.iso/software/m/multi_fax/multifaxv4a.dms/multifaxv4a.adf/Installation/Install-MFax

Text File | 1995-05-12 | 19KB | 864 lines

;***********************************************
; Script to install MultiFax professional
; $VER: Install-MFax 505.12 (12.05.95)
;
; © 1993-1995 TKR GmbH & Co. KG
;***********************************************

;=============================================================================
; German strings
(set default_lang 2)

(set @abort-button "Abbruch")
(set #msg-oldoperatingsystem
    (cat    "Die Version des Betriebsystems Ihres Rechners ist zu alt. "
        "MultiFax benötigt mindestens eine Version 2.04 des Betriebsystems. "
        "Bitte wenden Sie sich zwecks einer Aufrüstung des Betriebssystems "
        "an Ihren örtlichen Amiga-Fachhändler."
    )
)
(set #ask-target-prompt
    (cat    "Auf welches Laufwerk oder in welches Verzeichnis soll "
        "MultiFax installiert werden (Help... beachten!) ?"
    )
)
(set #ask-target-help
    (cat    "Das Verzeichnis \"MultiFax\" wird auf dem gewünschten "
        "Laufwerk oder in dem gewünschten Verzeichnis automatisch "
        "eingerichtet."
    )
)
(set #already-exists-prompt
    (cat    "Das Verzeichnis \"MultiFax\" existiert bereits! "
        "Soll die Installation trotzdem durchgeführt werden?"
    )
)
(set #already-exists-help
    (cat    "JA - Ein bereits eingerichtetes MultiFax professional "
        "wird überschrieben. Sollte es sich um die Version 2.0 "
        "handeln, dann sollten Sie auf jeden Fall eine Neuinstallation "
        "durchführen. "
        "Bei einem bereits bestehenden MultiFax professional 3.0 "
        "werden nur diejenigen Dateien überschrieben, die Sie "
        "in dem nächsten Menü auswählen und die bereits bestehen.\n\n"
        "NEIN - Die Installation wird nicht durchgeführt.\n\n"
        "ACHTUNG:\n"
        "Auch wenn die Updateinstallation in ein bestehendes altes "
        "MultiFax-Verzeichnis vorgesehen ist, sollten Sie auf jeden "
        "Fall eine Sicherheitskopie des Verzeichnisses erstellen, um "
        "im Falle eines Falles weiterhin auf die Daten zugreifen zu "
        "können.\n\n"
    )
)
(set #choices-yes
    (cat    "JA"
    )
)
(set #choices-no
    (cat    "NEIN"
    )
)
(set #ask-disk2-prompt
    (cat    "Bitte legen Sie Diskette 1 des Programmpaketes in "
        "ein Laufwerk."
    )
)
(set #ask-disk2.1-prompt
    (cat    "Bitte legen Sie Diskette 2 des Programmpaketes in "
        "ein Laufwerk."
    )
)
(set #ask-disk2.2-prompt
    (cat    "Bitte legen Sie Diskette 3 des Programmpaketes in "
        "ein Laufwerk."
    )
)
(set #ask-disk2-help
    (cat    "Die Programme des MultiFax werden auf Ihr System kopiert."
    )
)
(set #ask-libstarget-prompt
    (cat    "In welches Verzeichnis sollen die MultiFax-Bibliotheken kopiert "
        "werden (Help... beachten!) ?"
    )
)
(set #ask-libstarget-help
    (cat    "Das Verzeichnis \"Libs:\" ist das für diesen Zweck auf dem Amiga "
        "standardmäßig vorgesehene. Sie sollten diesen Eintrag nur ändern, "
        "wenn Sie ein anderes Verzeichnis für diesen Zweck eingerichtet und "
        "dem System auch für diesen Zweck bekannt gemacht haben."
    )
)
(set #ask-options-prompt
    (cat    "Bitte wählen Sie die zu kopierenden Dateien:"
    )
)
(set #ask-options-help
    (cat    "Hiermit können Sie auch eine teilweise Installation durchführen. "
        "Für eine normale Installation wählen Sie bitte alle Punkte an."
    )
)
(set #ask-options-modules
    (cat    "Module und Zeichensätze"
    )
)
(set #ask-options-printerdriver
    (cat    "MultiFax-Druckertreiber"
    )
)
(set #ask-options-libraries
    (cat    "MultiFax-Bibliotheken"
    )
)
(set #ask-options-parameterfiles
    (cat    "Parameterdateien"
    )
)
(set #ask-options-catalogs
    (cat    "Sprachkataloge"
    )
)
(set #ask-options-manuals
    (cat    "Anleitungen"
    )
)
(set #ask-options-faxexamples
    (cat    "Faxverzeichnisse"
    )
)
(set #ask-options-letterheads
    (cat    "Hintergrundgrafiken"
    )
)
(set #ask-options-text
    (cat    "Beispieltexte"
    )
)
(set #ask-options-macros
    (cat    "Makros"
    )
)
(set #ask-options-pictures
    (cat    "Beispielbilder"
    )
)
(set #ask-options-templates
    (cat    "Beispielmuster"
    )
)
(set #ask-options-arexxexamples
    (cat    "ARexx Beispiele"
    )
)
(set #insert-assign-prompt
    (cat    "Einfügen eines ASSIGN in Ihre \"S:user-startup\".\n"
        "Dieser ist nach dem nächsten Start des Rechners aktiv."
    )
)
(set #insert-assign-help
    (cat    "Dieser ASSIGN ist für den Betrieb von MultiFax notwendig. "
        "Sie können diesen Abschnitt aber auch überspringen (Skip "
        "This Part) und den ASSIGN später per Hand durchführen."
    )
)
(set #msg-finished
    (cat    "Der Installationsvorgang ist nun beendet. Nehmen Sie bitte "
        "jetzt die MultiFax-Disketten aus dem Laufwerk."
        "\n\n"
        "Unseren Neukunden - aber auch für \"alte Hasen\" interessant - "
        "empfehlen wir die Lektüre des Kapitels 2 (Seite 6 ff.) und "
        "des Anhangs D (Seite 53 ff.) des Addendums."
        "\n\n"
        "Aber Sie lesen Handbücher ja sowieso vor der Nutzung des "
        "Programmes - oder ?"
    )
)
(set #readmanual-prompt
    (cat    "Ein Nachtrag mit etwaigen Änderungen des Programmpaketes "
        "nach Drucklegung der Handbuchergänzung wurde auf "
        "Ihrem System unter dem Namen \"Lies_mich_!!\" installiert. "
        "Möchten Sie die Änderungen gleich lesen?!"
    )
)
(set #msg-nohelpavailable
    (cat    "\n\nKeine Hilfe verfügbar."
    )
)

;=============================================================================
; English strings
(if (= @language "english")
(
(set default_lang 4)

(set #msg-oldoperatingsystem
    (cat    "The Version of the operating system of your computer is too old. "
        "MultiFax needs at least a version 2.04 of the operating system. "
        "Please contact your local dealer for an upgrade of the operating "
        "system."
    )
)
(set #ask-target-prompt
    (cat    "In which disk or drawer should "
        "MultiFax be installed (See also Help...!) ?"
    )
)
(set #ask-target-help
    (cat    "The drawer \"MultiFax\" will automatically be created "
        "on the desired disk or in the desired drawer."
    )
)
(set #already-exists-prompt
    (cat    "The drawer \"MultiFax\" exists already! "
        "Proceed this installation anyway?"
    )
)
(set #already-exists-help
    (cat    "YES - an already existing MultiFax professional will "
        "be overwritten. If it should be the version 2.0, then "
        "do a new complete installation. "
        "If it is an existing MultiFax professional 3.0 "
        "then only those files will be overwritten you choose "
        "in the next menu and which already exist.\n\n"
        "NO - The installation will be aborted.\n\n"
        "WARNING:\n"
        "Although an update installation into an existing old "
        "MultiFax directory is supplied, you should in any case "
        "make a backup of the old MultiFax directory, so that you "
        "have access to the old data in the case the installation "
        "fails.\n\n"
    )
)
(set #choices-yes
    (cat    "YES"
    )
)
(set #choices-no
    (cat    "NO"
    )
)
(set #ask-disk2-prompt
    (cat    "Please insert disk 1 of the software package in "
        "any drive."
    )
)
(set #ask-disk2.1-prompt
    (cat    "Please insert disk 2 of the software package in "
        "any drive."
    )
)
(set #ask-disk2.2-prompt
    (cat    "Please insert disk 3 of the software package in "
        "any drive."
    )
)
(set #ask-disk2-help
    (cat    "The modules and data files of Multifax will be copied to your system."
    )
)
(set #ask-libstarget-prompt
    (cat    "In which directory shall the MultiFax libraries be copied "
        "(See also Help...!) ?"
    )
)
(set #ask-libstarget-help
    (cat    "The directory \"Libs:\" is the default directory for this purpose "
        "on the Amiga. You should only change the entry, if you have created "
        "an other drawer for this purpose and told the system to use ist for "
        "this purpose."
    )
)
(set #ask-options-prompt
    (cat    "Please, choose the files to copy:"
    )
)
(set #ask-options-help
    (cat    "You also can do a partly installation. For a standard "
        "installation select all items."
    )
)
(set #ask-options-modules
    (cat    "Modules and fonts"
    )
)
(set #ask-options-printerdriver
    (cat    "MultiFax printer driver"
    )
)
(set #ask-options-libraries
    (cat    "MultiFax libraries"
    )
)
(set #ask-options-parameterfiles
    (cat    "Parameter files"
    )
)
(set #ask-options-catalogs
    (cat    "Language catalogs"
    )
)
(set #ask-options-manuals
    (cat    "Manuals"
    )
)
(set #ask-options-faxexamples
    (cat    "Fax directories"
    )
)
(set #ask-options-letterheads
    (cat    "Background graphics"
    )
)
(set #ask-options-text
    (cat    "Text examples"
    )
)
(set #ask-options-macros
    (cat    "Macros"
    )
)
(set #ask-options-pictures
    (cat    "Picture examples"
    )
)
(set #ask-options-templates
    (cat    "Template examples"
    )
)
(set #ask-options-arexxexamples
    (cat    "ARexx examples"
    )
)
(set #insert-assign-prompt
    (cat    "An ASSIGN needs to be added to your \"S:user-startup\".\n"
        "This will automatically be active after the next "
        "start of your computer."
    )
)
(set #insert-assign-help
    (cat    "This ASSIGN is necessary for running MultiFax. "
        "Alternatively you can skip this part and set the ASSIGN "
        "manually later."
    )
)
(set #msg-finished
    (cat    "The installation process has finished. Please remove "
        "now all MultiFax disks from the drives."
    )
)
(set #readmanual-prompt
    (cat    "An addendum with any changes of the documentation of the "
        "software package after printing the supplement has been installed "
        "with the name \"Read_me_!!\" to your system. Do you want to "
        "read it now?"
    )
)
(set #msg-nohelpavailable
    (cat    "\n\nNo help available."
    )
)
)
)
;end (if (= @language "english"))

;=============================================================================

    ; set up a error cleanup routine
(onerror
    (makeassign "MultiFax_Disk" (safe))
)

(complete 0)

    ; Prüfung auf ein Betriebsystem von mindestens OS2.04 (37.xxx).
(
(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))
(set osversion ver)
(if (< osversion 37)
    (
    (abort #msg-oldoperatingsystem)
    )
)
)
    ; just in case the installation was restarted
(makeassign "MultiFax_Disk" (safe))    ; start fresh

    ; see if this is really an update
    ; if update, be sure they want program in same place
    ; if not an update, get a location for program
(set mfax_destdir
        (askdir
            (prompt #ask-target-prompt)
            (help    #ask-target-help)
            (default @default-dest)
            (disk)
        )
)
(set mfax_dest
    (tackon mfax_destdir "MultiFax")
)

    ; now lock on to volume 'mfax'
(set reinstall 0)
(if (exists mfax_dest)
        ; Es gibt dort bereits ein MultiFax-Verzeichnis.
    (
    (set reinstall
        (askbool
            (prompt #already-exists-prompt)
            (help    #already-exists-help)
            (choices #choices-yes #choices-no)
        )
    )
    (if (not reinstall)
        (exit)
    )
    )
)

(askdisk
    (prompt    #ask-disk2-prompt)
    (help    #ask-disk2-help)
    (dest  "MF_4.0_Disk_1")
    (newname "MultiFax_Disk")
)

    ; make MFax drawer & icon if not there
(if (not reinstall)
    (
    (makedir mfax_dest (infos))
        ; MultiFax-Fenster-Piktogramm kopieren wegen der Fenstergröße.
    (run (cat "Copy CLONE QUIET MultiFax_Disk:Installation/MultiFax.info TO \"" mfax_destdir "\""))
    )
)

    ; at this point we have a valid destination, so we tell installer where
    ; the application will end up so the exit page will be correct -- also,
    ; the installation log file (if any) will be copied to the destination
(set @default-dest mfax_dest)

(set whichfiles
    (askoptions
        (prompt #ask-options-prompt)
        (help    #ask-options-help)
        (choices #ask-options-modules
             #ask-options-printerdriver
             #ask-options-libraries
             #ask-options-parameterfiles
             #ask-options-catalogs
             #ask-options-manuals
             #ask-options-faxexamples
             #ask-options-letterheads
             #ask-options-text
             #ask-options-macros
             #ask-options-pictures
             #ask-options-templates
             #ask-options-arexxexamples)
    )
)


    ; Parameter-Verzeichnis
(if    (in whichfiles 3)
        (if (> reinstall 0)
                ; Es wurde Update angewählt, also überflüssige
                ; Dateien löschen.
            (
            (run (cat "Delete ALL QUIET \"" (tackon mfax_dest "Parameter/FaxWin.INF") "\"")
            )
            (copyfiles
                (source "MultiFax_Disk:MultiFax/Parameter")
                (pattern "FaxDat~(9?).INF")
                (dest mfax_dest)
                (infos)
            )
            )
                ; Es wurde kein Update angewählt, also Neuinstallation.
            (
            (copyfiles
                (source "MultiFax_Disk:MultiFax/")
                (pattern "Parameter#?")
                (dest mfax_dest)
                (infos)
            )
                ; Englisch? Dann die Programmsprache auch auf
                ; Englisch setzen.
            (if (= default_lang 4)
                (textfile
                    (dest (tackon mfax_dest "Parameter/Fax.INF"))
                    (include "MultiFax_Disk:MultiFax/Parameter/Fax.INF")
                    (append "PGMLANG         english\n")
                )
            )
            )
        )
)
    ; Libs-Verzeichnis
(if    (in whichfiles 2)
    (
            ; Abfrage des Verzeichnisses für die Bibliotheken.
        (set libs_dest
            (askdir
                (prompt #ask-libstarget-prompt)
                (help    #ask-libstarget-help)
                (default "Libs:")
                (disk)
            )
        )
        (copylib
            (source "MultiFax_Disk:MultiFax/Libs/multifax.library")
            (dest libs_dest)
        )
        (copylib
            (source "MultiFax_Disk:MultiFax/Libs/mfphone.library")
            (dest libs_dest)
        )
        (copylib
            (source "MultiFax_Disk:MultiFax/Libs/mfview.library")
            (dest libs_dest)
        )
        (copylib
            (source "MultiFax_Disk:MultiFax/Libs/tkrtools.library")
            (dest libs_dest)
        )
    )
)
    ; Printers-Verzeichnis
(if    (in whichfiles 1)
    (
        (if (> reinstall 0)
                ; Es wurde Update angewählt, also alten Treiber löschen.
            (
            (run "Delete ALL QUIET DEVS:Printers/MultiFaxDriver"
            )
            )
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/Printers")
            (pattern "#?")
            (dest "DEVS:Printers")
            (infos)
        )
    )
)
    ; System-Verzeichnis
(if    (in whichfiles 0)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "System#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Anleitungen kopieren.
(if    (in whichfiles 5)
        ; Lies_mich_!!-Text kopieren.
    (if (= default_lang 4)
        (
            (copyfiles
                (source "MultiFax_Disk:MultiFax/Read_Me_!!")
                (dest mfax_dest)
            )
            (copyfiles
                (source "MultiFax_Disk:MultiFax/Lies_mich_!!.info")
                (dest mfax_dest)
                (newname "Read_Me_!!.info")
            )
            (if (>= osversion 39)
                (
                    ; Ab OS3.0 ist MultiView dabei. Dies ersetzt das
                    ; Programm More. Sollte also auch als Standard-
                    ; programm genommen werden.
                (tooltype
                    (dest (tackon mfax_dest "Read_me_!!.info"))
                    (setdefaulttool "SYS:Utilities/MultiView")
                )
                )
            )
        )
        (
            (copyfiles
                (source "MultiFax_Disk:MultiFax/")
                (pattern "Lies_mich_!!#?")
                (dest mfax_dest)
                (infos)
            )
            (if (>= osversion 39)
                (
                    ; Ab OS3.0 ist MultiView dabei. Dies ersetzt das
                    ; Programm More. Sollte also auch als Standard-
                    ; programm genommen werden.
                (tooltype
                    (dest (tackon mfax_dest "Lies_mich_!!.info"))
                    (setdefaulttool "SYS:Utilities/MultiView")
                )
                )
            )
        )
    )
)
    ; Output-Verzeichnis
(if    (in whichfiles 6)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Output#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Input-Verzeichnis
(if    (in whichfiles 6)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Input#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Archive-Verzeichnis
(if    (in whichfiles 6)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Archive#?")
            (dest mfax_dest)
            (infos)
        )
)


(complete 30)

(askdisk
    (prompt    #ask-disk2.1-prompt)
    (help    #ask-disk2-help)
    (dest  "MF_4.0_Disk_2")
    (newname "MultiFax_Disk")
)

    ; Catalogs-Verzeichnis
(if    (in whichfiles 4)
    (
        (if (> reinstall 0)
                ; Es wurde Update angewählt, also alten Ordner löschen.
            (
            (run (cat "Delete ALL QUIET \"" (tackon mfax_dest "Catalogs") "\"")
            )
            )
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Catalogs#?")
            (dest mfax_dest)
            (infos)
        )
    )
)
    ; Letterheads-Verzeichnis
(if    (in whichfiles 7)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Letterheads#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Text-Verzeichnis
(if    (in whichfiles 8)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Text#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Rexx-Verzeichnis
(if    (in whichfiles 12)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Rexx#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Templates-Verzeichnis
(if    (in whichfiles 11)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Templates#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Macros-Verzeichnis
(if    (in whichfiles 9)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Macros#?")
            (dest mfax_dest)
            (infos)
        )
)
    ; Pictures-Verzeichnis
(if    (in whichfiles 10)
        (copyfiles
            (source "MultiFax_Disk:MultiFax/")
            (pattern "Pictures#?")
            (dest mfax_dest)
            (infos)
        )
)


(complete 60)

(askdisk
    (prompt    #ask-disk2.2-prompt)
    (help    #ask-disk2-help)
    (dest  "MF_4.0_Disk_3")
    (newname "MultiFax_Disk")
)
    ; Module
(if    (in whichfiles 0)
    (
        (copyfiles
            (source "MultiFax_Disk:MultiFax/MultiFax")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/Server")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/Spooler")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/Desk")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/Logbook")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/View")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/Config")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/EditPhone")
            (dest mfax_dest)
            (infos)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/PreConvert")
            (dest mfax_dest)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/MFRexx")
            (dest mfax_dest)
        )
        (copyfiles
            (source "MultiFax_Disk:MultiFax/FaxArchiv.info")
            (dest mfax_dest)
        )
        (if (not reinstall)
                ; Im Falle einer Neuinstallation sicherheitshalber
                ; den Telefonbuchkonverter MF 2.0 --> MF 3.0
                ; installieren.
            (copyfiles
                (source "MultiFax_Disk:MultiFax/ConvertPhone")
                (dest mfax_dest)
            )
        )
    )
)


(tooltype
    (dest mfax_dest)
    (noposition)
)


   ;
   ; these libraries are necessary for MultiFax, make sure that they are there:
   ;

(complete 95)

    ; modify S:User-Startup
(startup "MultiFax"
    (prompt #insert-assign-prompt)
    (command
        "ASSIGN MultiFax: \"" mfax_dest "\"\n"
    )
    (help #insert-assign-help)
)

    ; reinitialize assigns
(if (not @pretend)
    (makeassign "MultiFax" mfax_dest)
)

(complete 100)

    ; cleanup
(makeassign "MultiFax_Disk" (safe))

(message #msg-finished)

    ; Zum Schluß hat der Anwender gleich Gelegenheit, das Ergänzungshandbuch
    ; zu lesen. Aber nur, wenn er es auch installiert hat.
(if    (in whichfiles 5)
    (
    (set readmanual
        (askbool
            (prompt #readmanual-prompt)
            (help #msg-nohelpavailable)
            (choices #choices-yes #choices-no)
        )
    )
    (if (> readmanual 0)
        (
        (set editor "SYS:Utilities/More")
            ; Prüfung auf ein Betriebsystem von mindestens OS3.0 (39.xxx).
        (if (>= osversion 39)
                ; Ab OS3.0 ist MultiView dabei. Dies ersetzt das
                ; Programm More. Sollte also auch als Anzeige-
                ; programm genommen werden.
            (set editor "SYS:Utilities/MultiView")
        )
        (if (= default_lang 4)
            (textfile
                (dest "RAM:TMP")
                (append (cat "Run >NIL: " editor " MultiFax:Read_me_!!\n"))
            )
            (textfile
                (dest "RAM:TMP")
                (append (cat "Run >NIL: " editor " MultiFax:Lies_mich_!!\n"))
            )
        )
        (execute "RAM:TMP")
        (run "Delete QUIET RAM:TMP")
        )
    )
    )
)

    ; this is not strictly necessary, but doesn't hurt -- there is always
    ; a default (exit) at the end of any script
(exit (quiet))